home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / patches / fw4030r2.lha / Install FinalWriter-030 < prev    next >
Text File  |  1995-11-04  |  2KB  |  90 lines
  1. ; $VER: FinalWriter-030_Install 1.11 (4.11.95)
  2.  
  3. (set version "4.0")
  4.  
  5. (onerror (exit (quiet)))
  6.  
  7. (message
  8.     "\n\nFinalWriter " version " '030"
  9.     "\nCopyright 1995 Martin Berndt"
  10.     "\n\n\n!!! This Patch is SHAREWARE !!!"
  11.     "\n\nPlease read the \"ReadMe.txt\" file."
  12. )
  13.  
  14. (set @default-dest
  15.     (askdir
  16.         (prompt "Where is your FinalWriter Drawer?")
  17.         (help @askfile-help)
  18.         (default "SYS:FinalWriter")
  19.         (newpath)
  20.     )
  21. )
  22.  
  23. (set language
  24.     (askchoice
  25.         (prompt "Select your version")
  26.         (help @askchoice-help)
  27.         (choices "US1  26-Jul-95 (American English)"
  28.              "US2  23-Aug-95 (American English)"
  29.              "US3   5-Oct-95 (American English)")
  30.     )
  31. )
  32.  
  33. (set backup
  34.     (askoptions
  35.         (prompt "Options")
  36.         (help @askoptions-help)
  37.         (choices "Create Backup Files")
  38.     )
  39. )
  40.  
  41. (set n 0)
  42. (set percent 0)
  43.  
  44. (while (set name (select n "FinalWriter" "swpost.library" "swshell.library"
  45.                "cachemap.library" "qfont.library" "")) (
  46.     (set n (+ n 1))
  47.     (complete percent)
  48.     (if (= n 1)
  49.         (set file name)
  50.         (set file ("FWLibs/%s" name))
  51.     )
  52.     (set newfile (tackon @default-dest file))
  53.     (set oldfile (cat newfile ".bak"))
  54.     (if (= (exists newfile) 0)
  55.         (abort name " not found!")
  56.     )
  57.     (rename newfile oldfile)
  58.     (if (< n 4) (
  59.         (if (= n 1) (
  60.             (if (= language 0) (
  61.                 (working "\n\nUpdating to new version")
  62.                 (if (<> (run ("spatch \"-o%s\" \"-p%sUS1.pch\" \"%s\"" newfile name oldfile)) 0) (
  63.                     (rename oldfile newfile)
  64.                     (abort "Wrong Version!")
  65.                 ))
  66.                 (delete oldfile)
  67.                 (rename newfile oldfile)
  68.                 (set language 1)
  69.             ))
  70.             (set name (cat name (select language "US1" "US2" "US3")))
  71.         ))
  72.         (working "\n\nPatching\n" newfile)
  73.         (if (<> (run ("spatch \"-o%s\" \"-p%s.pch\" \"%s\"" newfile name oldfile)) 0) (
  74.             (rename oldfile newfile)
  75.             (abort "Wrong Version!")
  76.         ))
  77.         (set percent (+ percent 30))
  78.     ) (
  79.         (copyfiles
  80.             (prompt "Copying " name)
  81.             (help @copyfiles-help)
  82.             (source name)
  83.             (dest (tackon @default-dest "FWLibs"))
  84.             (optional "force" "askuser")
  85.         )
  86.         (set percent (+ percent 5))
  87.     ))
  88.     (if (= backup 0) (delete oldfile))
  89. ))
  90.